home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / ft_rentr.zip / ENTER.PPS < prev    next >
Text File  |  1994-05-17  |  957b  |  44 lines
  1. BOOLEAN exitFlag ' User exit request flag
  2. INTEGER x,xx        ' Screen X coordinate
  3. INTEGER y        ' Screen Y coordinate
  4. INTEGER I
  5. string enter(11)
  6.  
  7. LET exitFlag = FALSE ' We don't want to exit right off the bat
  8.  
  9.  
  10. let enter(1)  = "P" 
  11. let enter(2)  = "R"
  12. let enter(3)  = "E"
  13. let enter(4)  = "S"
  14. let enter(5)  = "S"
  15. let enter(6)  = " "
  16. let enter(7)  = "E"
  17. let enter(8)  = "N"
  18. let enter(9)  = "T"
  19. let enter(10) = "E"
  20. let enter(11) = "R"
  21. x = 0
  22. y = gety()
  23. '======================================================================
  24. WHILE (!exitFlag) DO 
  25. inc X
  26. ANSIPOS  x,y
  27.   let xx = x
  28.  print "@X0FP@X07R@X08eSS @X0FS@X07P@X08aCe"
  29. '  delay 2
  30.   ANSIPOS  XX,y
  31.   print " @X00PReSS SPaCe "
  32.  LET exitFlag = (INKEY() = " ")
  33.       if (x = 31) then
  34.       goto ed
  35.       endif 
  36. ENDWHILE
  37. :ed
  38. WHILE (!exitFlag) DO 
  39.  LET exitFlag = (INKEY() = " ")
  40. ENDWHILE
  41. '========================================================================
  42.  
  43.  
  44.